home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].zip / Micro on the Apple Volume 1 (1981)(Micro Ink)[no boot].do / GRAPHICS-ORG.int < prev    next >
Text File  |  1996-12-24  |  968b  |  30 lines
  1. 10 REM  **************************
  2. 12 REM  *                        *
  3. 14 REM  * HI-RES GRAPHICS MEMORY *
  4. 16 REM  *      ORGANIZATION      *
  5. 18 REM  *   ANDREW H. ELIASON    *
  6. 20 REM  *                        *
  7. 22 REM  *      GRAPHICS-ORG      *
  8. 24 REM  *                        *
  9. 25 REM  *   COPYRIGHT (C) 1981   *
  10. 26 REM  *     MICRO INK, INC.    *
  11. 27 REM  *  CHELMSFORD, MA 01824  *
  12. 28 REM  *   ALL RIGHTS RESERVED  *
  13. 29 REM  *                        *
  14. 30 REM  **************************
  15. 96 REM 
  16. 100 REM  SET HIMEM:8191
  17. 110 REM  HIRES GRAPICS LEARNING AID
  18. 120  POKE -16304,0:REM  SET GRAPHICS MODE
  19. 130  POKE -16297,0:REM  SET HIRES MODE
  20. 140 REM    CLEAR PAGE -  TAKES 20 SECONDS
  21. 150 FOR I=8192 TO 16383: POKE I,0:NEXT I
  22. 160 INPUT "ENTER BYTE (1 TO 127)",BYTE
  23. 170  POKE -16302,0:REM   CLEAR MIXED GRAPHICS
  24. 180 FOR J=8192 TO 16383:REM  ADDRESS'
  25. 190  POKE J,BYTE:REM  DEPOSIT BYTE IN ADDRESS
  26. 200 NEXT J
  27. 210  POKE -16301,O:REM   SET MIXED GRAPHICS
  28. 220 GOTO 160
  29. 999 END 
  30.